home *** CD-ROM | disk | FTP | other *** search
-
-
- failat 21
- if $FCL eq "1"
- echo "*n Removing Assigns ...*n"
- unsetenv FCL
- setenv Mode "REMOVE"
- assign >nil: GMData: $Mode
- else
- echo "*n Making Assigns ...*n"
- setenv FCL 1
- setenv Mode "ADD"
- assign >nil: GMData: ram: $Mode
- assign >nil: C: :GFXManager/bin $Mode
- assign >nil: S: :s $Mode
- assign >nil: Fonts: :GFXManager/fonts $Mode
- path >nil: :c :GFXManager/bin $Mode
- loadwb >nil: newpath
- unsetenv Mode
- wait 2
- echo "*ec*n*n All done, have fun !!...*n"
- endif